home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abe.d64 / drive you nuts (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  6KB  |  225 lines
  1. 10 PRINTCHR$(147)
  2. 11 POKE53280,0:POKE53281,0
  3. 12 PRINT"        [158]SETTING UP...PLEASE WAIT"
  4. 13 PRINT"                OBJECT:"
  5. 14 PRINT"MATCH ALL NUMBERS THAT FACE EACH OTHER."
  6. 15 PRINT"              WRITTEN BY"
  7. 16 PRINT"             T.D.MCCUTCHEN
  8. 19 [153]""
  9. 20 [153][199](142)
  10. 30 [151]52,48:[151]56,48
  11. 40 [151]56334,[194](56334)[175]254
  12. 50 [151]1,[194](1)[175]251
  13. 60 [129]I[178]0[164]511:[151]I[170]12288,[194](I[170]53248):[130]
  14. 70 [151]1,[194](1)[176]4
  15. 80 [151]56334,[194](56334)[176]1
  16. 90 [129]I[178]12504[164]12543:[135]A:[151]I,A:[130]
  17. 91 [129]I[178]12568[164]12631:[135]A:[151]I,A:[130]
  18. 92 [151]53272,([194](53272)[175]240)[170]12
  19. 93 [129]I[178]12680[164]13112:[151]I,255[171][194](I):[130]
  20. 100 [131]7,7,15,31,31,63,63,127,224,224,240,248,248,252,252,254
  21. 110 [131]0,0,1,1,3,7,7,15,0,0,128,128,192,224,224,240
  22. 115 [131]15,31,31,63,63,127,127,255,240,248,248,252,252,254,254,255
  23. 116 [131]255,127,127,63,63,31,31,15,255,254,254,252,252,248,248,240
  24. 120 [131]15,7,7,3,1,1,0,0,240,224,224,192,128,128,0,0
  25. 125 [131]127,63,63,31,31,15,7,7,254,252,252,248,248,240,224,224
  26. 126 [131]255,255,255,255,255,255,255,255
  27. 130 [153][199](147)
  28. 132 A1[178]49:A2[178]49:A3[178]49:A4[178]49:A5[178]49:A6[178]49:A7[178]49
  29. 133 B1[178]50:B2[178]50:B3[178]50:B4[178]50:B5[178]50:B6[178]50:B7[178]50
  30. 134 C1[178]51:C2[178]51:C3[178]51:C4[178]51:C5[178]51:C6[178]51:C7[178]51
  31. 135 D1[178]52:D2[178]52:D3[178]52:D4[178]52:D5[178]52:D6[178]52:D7[178]52
  32. 136 E1[178]53:E2[178]53:E3[178]53:E4[178]53:E5[178]53:E6[178]53:E7[178]53
  33. 137 F1[178]54:F2[178]54:F3[178]54:F4[178]54:F5[178]54:F6[178]54:F7[178]54
  34. 138 V[178]1562:U[178]55916:[141]906
  35. 139 V[178]1242:U[178]55596:[141]1006
  36. 140 V[178]1409:U[178]55763:[141]1106
  37. 141 V[178]1729:U[178]56083:[141]1206
  38. 142 V[178]1089:U[178]55443:[141]1306
  39. 143 V[178]1576:U[178]55930:[141]1406
  40. 144 V[178]1390:U[178]55744:[141]1506
  41. 145 K[178]1256:L[178]55610:[141]1999
  42. 151 [151]1088,1:[151]1241,2:[151]1255,3:[151]1408,4
  43. 152 [151]1561,5:[151]1575,6:[151]1728,7:[151]1389,8
  44. 190 [153][199](19)
  45. 192 [153]""
  46. 194 [153]" DRIVE YOU NUTS"
  47. 195 [153]"  WRITTEN BY"
  48. 196 [153]" T.D.MCCUTCHEN"
  49. 210 [153][199](19)
  50. 234 [153]"SYS MOVE OR ROTATE?"
  51. 235 [153]"     M OR R     "
  52. 236 [161]A$:[139]A$[178]""[167]236
  53. 240 [139]A$[178]"M"[167][141]280:[137]210
  54. 250 [139]A$[178]"R"[167][141]580:[137]210
  55. 251 [139]A$[178]"?"[167]3500
  56. 270 [137]236
  57. 271 [143] MOVE
  58. 280 [153][199](19)
  59. 295 [153]"SYS    WICH ONE?   "
  60. 296 [153]"       1-7      "
  61. 300 [161]A$:[139]A$[178]""[167]300
  62. 305 [139]A$[178]"1"[167]WO[178]1:[137]350
  63. 310 [139]A$[178]"2"[167]WO[178]2:[137]350
  64. 315 [139]A$[178]"3"[167]WO[178]3:[137]350
  65. 320 [139]A$[178]"4"[167]WO[178]4:[137]350
  66. 325 [139]A$[178]"5"[167]WO[178]5:[137]350
  67. 330 [139]A$[178]"6"[167]WO[178]6:[137]350
  68. 331 [139]A$[178]"7"[167]WO[178]7:[137]350
  69. 335 [137]300
  70. 350 [153][199](19)
  71. 370 [153]"SYS    TO WHERE?   "
  72. 371 [153]"       A-G      "
  73. 380 [161]A$:[139]A$[178]""[167]380
  74. 390 [139]A$[178]"A"[167]V[178]1089:U[178]55443:[141]3000:[137]480
  75. 400 [139]A$[178]"B"[167]V[178]1242:U[178]55596:[141]3000:[137]480
  76. 410 [139]A$[178]"C"[167]V[178]1256:U[178]55610:[141]3000:[137]480
  77. 420 [139]A$[178]"D"[167]V[178]1409:U[178]55763:[141]3000:[137]480
  78. 430 [139]A$[178]"E"[167]V[178]1562:U[178]55916:[141]3000:[137]480
  79. 440 [139]A$[178]"F"[167]V[178]1576:U[178]55930:[141]3000:[137]480
  80. 450 [139]A$[178]"G"[167]V[178]1729:U[178]56083:[141]3000:[137]480
  81. 460 [139]A$[178]"H"[167]V[178]1390:U[178]55744:[141]3000:[137]480
  82. 470 [137]380
  83. 480 [139]T[178]42[167]490
  84. 481 [142]
  85. 490 [153][199](19)
  86. 500 [153]"STOP                "
  87. 501 [153]"STOP                "
  88. 502 [153]""
  89. 510 [139]WO[178]1[167][141]905:[142]
  90. 520 [139]WO[178]2[167][141]1005:[142]
  91. 530 [139]WO[178]3[167][141]1105:[142]
  92. 540 [139]WO[178]4[167][141]1205:[142]
  93. 550 [139]WO[178]5[167][141]1305:[142]
  94. 560 [139]WO[178]6[167][141]1405:[142]
  95. 561 [139]WO[178]7[167][141]1505:[142]
  96. 570 [143] ROTATE
  97. 580 [153][199](19)
  98. 600 [153]"SYS RIGHT OR LEFT? "
  99. 601 [153]"     R OR L     "
  100. 605 [161]A$:[139]A$[178]""[167]605
  101. 610 [139]A$[178]"L"[167]LR[178]1:[137]680
  102. 620 [139]A$[178]"R"[167]LR[178]2:[137]680
  103. 630 [137]605
  104. 680 [153][199](19)
  105. 699 [153]"SYS    WICH ONE?   "
  106. 700 [153]"       1-7      "
  107. 701 [161]A$:[139]A$[178]""[167]701
  108. 710 [139]A$[178]"1"[167]780
  109. 720 [139]A$[178]"2"[167]780
  110. 730 [139]A$[178]"3"[167]780
  111. 740 [139]A$[178]"4"[167]780
  112. 750 [139]A$[178]"5"[167]780
  113. 760 [139]A$[178]"6"[167]780
  114. 761 [139]A$[178]"7"[167]780
  115. 770 [137]701
  116. 780 [153][199](19)
  117. 800 [153]"STOP                "
  118. 801 [153]"STOP                "
  119. 802 [153]""
  120. 810 [139]A$[178]"1"[167][141]900:[142]
  121. 820 [139]A$[178]"2"[167][141]1000:[142]
  122. 830 [139]A$[178]"3"[167][141]1100:[142]
  123. 840 [139]A$[178]"4"[167][141]1200:[142]
  124. 850 [139]A$[178]"5"[167][141]1300:[142]
  125. 860 [139]A$[178]"6"[167][141]1400:[142]
  126. 861 [139]A$[178]"7"[167][141]1500:[142]
  127. 900 [143] PRINT N1
  128. 901 [139]LR[178]1[167]903
  129. 902 [139]LR[178]2[167]904
  130. 903 W[178]A1:A1[178]D1:D1[178]C1:C1[178]F1:F1[178]E1:E1[178]B1:B1[178]W:W[178]0:[137]911
  131. 904 W[178]B1:B1[178]E1:E1[178]F1:F1[178]C1:C1[178]D1:D1[178]A1:A1[178]W:W[178]0:[137]911
  132. 905 K[178]N1:L[178]Q1:[141]1999
  133. 906 N1[178]V:K[178]V:Q1[178]U:[141]2000
  134. 911 V[178]N1:U[178]Q1:[151]V[170]2,A1:[151]V[170]44,D1:[151]V[170]164,C1:[151]V[170]202,F1
  135. 912 [151]V[170]160,E1:[151]V[170]40,B1:[151]V[170]82,49:[151]U,7:[142]
  136. 1000 [143] PRINT N2
  137. 1001 [139]LR[178]1[167]1003
  138. 1002 [139]LR[178]2[167]1004
  139. 1003 W[178]A2:A2[178]B2:B2[178]C2:C2[178]D2:D2[178]E2:E2[178]F2:F2[178]W:W[178]0:[137]1011
  140. 1004 W[178]F2:F2[178]E2:E2[178]D2:D2[178]C2:C2[178]B2:B2[178]A2:A2[178]W:W[178]0:[137]1011
  141. 1005 K[178]N2:L[178]Q2:[141]1999
  142. 1006 N2[178]V:K[178]V:Q2[178]U:[141]2000
  143. 1011 V[178]N2:U[178]Q2:[151]V[170]2,A2:[151]V[170]44,B2:[151]V[170]164,C2:[151]V[170]202,D2
  144. 1012 [151]V[170]160,E2:[151]V[170]40,F2:[151]V[170]82,50:[151]U,7:[142]
  145. 1100 [143] PRINT N3
  146. 1101 [139]LR[178]1[167]1103
  147. 1102 [139]LR[178]2[167]1104
  148. 1103 W[178]A3:A3[178]F3:F3[178]D3:D3[178]B3:B3[178]E3:E3[178]C3:C3[178]W:W[178]0:[137]1111
  149. 1104 W[178]C3:C3[178]E3:E3[178]B3:B3[178]D3:D3[178]F3:F3[178]A3:A3[178]W:W[178]0:[137]1111
  150. 1105 K[178]N3:L[178]Q3:[141]1999
  151. 1106 N3[178]V:K[178]V:Q3[178]U:[141]2000
  152. 1111 V[178]N3:U[178]Q3:[151]V[170]2,A3:[151]V[170]44,F3:[151]V[170]164,D3:[151]V[170]202,B3
  153. 1112 [151]V[170]160,E3:[151]V[170]40,C3:[151]V[170]82,51:[151]U,7:[142]
  154. 1200 [143] PRINT N4
  155. 1201 [139]LR[178]1[167]1203
  156. 1202 [139]LR[178]2[167]1204
  157. 1203 W[178]A4:A4[178]F4:F4[178]E4:E4[178]D4:D4[178]C4:C4[178]B4:B4[178]W:W[178]0:[137]1211
  158. 1204 W[178]B4:B4[178]C4:C4[178]D4:D4[178]E4:E4[178]F4:F4[178]A4:A4[178]W:W[178]0:[137]1211
  159. 1205 K[178]N4:L[178]Q4:[141]1999
  160. 1206 N4[178]V:K[178]V:Q4[178]U:[141]2000
  161. 1211 V[178]N4:U[178]Q4:[151]V[170]2,A4:[151]V[170]44,F4:[151]V[170]164,E4:[151]V[170]202,D4
  162. 1212 [151]V[170]160,C4:[151]V[170]40,B4:[151]V[170]82,52:[151]U,7:[142]
  163. 1300 [143] PRINT N5
  164. 1301 [139]LR[178]1[167]1303
  165. 1302 [139]LR[178]2[167]1304
  166. 1303 W[178]A5:A5[178]D5:D5[178]F5:F5[178]B5:B5[178]C5:C5[178]E5:E5[178]W:W[178]0:[137]1311
  167. 1304 W[178]E5:E5[178]C5:C5[178]B5:B5[178]F5:F5[178]D5:D5[178]A5:A5[178]W:W[178]0:[137]1311
  168. 1305 K[178]N5:L[178]Q5:[141]1999
  169. 1306 N5[178]V:K[178]V:Q5[178]U:[141]2000
  170. 1311 V[178]N5:U[178]Q5:[151]V[170]2,A5:[151]V[170]44,D5:[151]V[170]164,F5:[151]V[170]202,B5
  171. 1312 [151]V[170]160,C5:[151]V[170]40,E5:[151]V[170]82,53:[151]U,7:[142]
  172. 1400 [143] PRINT N6
  173. 1401 [139]LR[178]1[167]1403
  174. 1402 [139]LR[178]2[167]1404
  175. 1403 W[178]A6:A6[178]F6:F6[178]E6:E6[178]C6:C6[178]B6:B6[178]D6:D6[178]W:W[178]0:[137]1411
  176. 1404 W[178]D6:D6[178]B6:B6[178]C6:C6[178]E6:E6[178]F6:F6[178]A6:A6[178]W:W[178]0:[137]1411
  177. 1405 K[178]N6:L[178]Q6:[141]1999
  178. 1406 N6[178]V:K[178]V:Q6[178]U:[141]2000
  179. 1411 V[178]N6:U[178]Q6:[151]V[170]2,A6:[151]V[170]44,F6:[151]V[170]164,E6:[151]V[170]202,C6
  180. 1412 [151]V[170]160,B6:[151]V[170]40,D6:[151]V[170]82,54:[151]U,7:[142]
  181. 1500 [143] PRINT N7
  182. 1501 [139]LR[178]1[167]1503
  183. 1502 [139]LR[178]2[167]1504
  184. 1503 W[178]A7:A7[178]F7:F7[178]B7:B7[178]D7:D7[178]E7:E7[178]C7:C7[178]W:W[178]0:[137]1511
  185. 1504 W[178]C7:C7[178]E7:E7[178]D7:D7[178]B7:B7[178]F7:F7[178]A7:A7[178]W:W[178]0:[137]1511
  186. 1505 K[178]N7:L[178]Q7:[141]1999
  187. 1506 N7[178]V:K[178]V:Q7[178]U:[141]2000
  188. 1511 V[178]N7:U[178]Q7:[151]V[170]2,A7:[151]V[170]44,F7:[151]V[170]164,B7:[151]V[170]202,D7
  189. 1512 [151]V[170]160,E7:[151]V[170]40,C7:[151]V[170]82,55:[151]U,7:[142]
  190. 1998 [143] LAST SUB
  191. 1999 [151]L,2
  192. 2000 [151]K[170]0,27:[151]K[170]1,42:[151]K[170]2,42:[151]K[170]3,42:[151]K[170]4,28
  193. 2001 [151]K[170]39,29:[151]K[170]40,42:[151]K[170]41,42:[151]K[170]42,42:[151]K[170]43,42:[151]K[170]44,42
  194. 2002 [151]K[170]45,30
  195. 2003 [151]K[170]79,31:[151]K[170]80,42:[151]K[170]81,42:[151]K[170]82,42:[151]K[170]83,42:[151]K[170]84,42
  196. 2004 [151]K[170]85,35
  197. 2005 [151]K[170]119,36:[151]K[170]120,42:[151]K[170]121,42:[151]K[170]122,42:[151]K[170]123,42
  198. 2006 [151]K[170]124,42:[151]K[170]125,37
  199. 2007 [151]K[170]159,38:[151]K[170]160,42:[151]K[170]161,42:[151]K[170]162,42:[151]K[170]163,42
  200. 2008 [151]K[170]164,42:[151]K[170]165,39
  201. 2009 [151]K[170]200,40:[151]K[170]201,42:[151]K[170]202,42
  202. 2010 [151]K[170]203,42:[151]K[170]204,41:[142]
  203. 3000 [143] IS THERE
  204. 3001 T[178][194](V[170]2)
  205. 3002 [139]T[178]42[167][142]
  206. 3010 [153][199](19)
  207. 3011 [153]"ALREADY ONE IN"
  208. 3012 [153]"  THAT SPOT!  "
  209. 3013 [153]" PRESS A KEY  "
  210. 3014 [161]A$:[139]A$[178]""[167]3014
  211. 3015 [153][199](19)
  212. 3016 [153]"STOP              "
  213. 3017 [153]"STOP              "
  214. 3018 [153]"STOP              "
  215. 3020 [142]
  216. 3500 V[178]1562:U[178]55916:[141]1306
  217. 3501 V[178]1242:U[178]55596:[141]1406
  218. 3502 V[178]1409:U[178]55763:[141]1506
  219. 3503 V[178]1729:U[178]56083:[141]1206
  220. 3504 V[178]1089:U[178]55443:[141]906
  221. 3505 V[178]1576:U[178]55930:[141]1106
  222. 3506 K[178]1390:L[178]55744:[141]1999
  223. 3507 V[178]1256:U[178]55610:[141]1006
  224. 3508 [137]210
  225.